﻿Imports Capa_de_Acceso_a_Datos
Public Class frmVisualizarCronogramaPresentacion
    Public CronogramaPresentacionId As Integer
    Private Sub frmVisualizarCronogramaPresentacion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MostrarReporte()
    End Sub

    Private Sub MostrarReporte()

        'Cargamos el Cronograma de Presentación en la BD
        Dim TablaCronograma As DataTable = CronogramaPresentacionDAO.crearReportePresentacion(CronogramaPresentacionId)
        Dim reporte As New rptCronogramaPresentacion()
        reporte.SetDataSource(TablaCronograma)

        'Lo muestro con el visor
        crvCierreObraSocial.ReportSource = reporte
        crvCierreObraSocial.Zoom(60)
    End Sub
End Class